home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / H-I / HomeSuite.cpt / Home Suite 2.0 / card_4492.txt < prev    next >
Text File  |  1989-02-26  |  8KB  |  366 lines
  1. -- card: 4492 from stack: in.0
  2. -- bmap block id: 10307
  3. -- flags: 0000
  4. -- background id: 2660
  5. -- name: Stack City Card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   play hurts
  9.   hide message box
  10.   hide menubar
  11.   set the name of background button id 31 to "Menus On"
  12. end openCard
  13.  
  14.  
  15. -- part 2 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=0 top=167 right=203 bottom=44
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 1016 / 1016
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Next
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   play bleep1
  30.   visual effect wipe right slow
  31.   go to next card
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=473 top=168 right=202 bottom=512
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 32650 / 32650
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Prev
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   play bleep3
  51.   visual effect wipe left slow
  52.   go to previous card
  53. end mouseUp
  54.  
  55.  
  56. -- part 3 (button)
  57. -- low flags: 00
  58. -- high flags: 2000
  59. -- rect: left=329 top=313 right=342 bottom=365
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 6724 / 6724
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Return
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   play transport
  71.   visual effect dissolve slow
  72.   go to card id 3017
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 6 (button)
  78. -- low flags: 00
  79. -- high flags: A000
  80. -- rect: left=0 top=0 right=45 bottom=60
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 14202 / 14202
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: FingerSpell
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   play transport
  92.   visual effect dissolve slow
  93.   go to stack "FingerSpell"
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 8 (button)
  99. -- low flags: 00
  100. -- high flags: A000
  101. -- rect: left=59 top=0 right=45 bottom=119
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 27735 / 27735
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Inigo the Cat
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   play transport
  113.   visual effect dissolve slow
  114.   go to stack "Inigo the Cat"
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 9 (button)
  120. -- low flags: 00
  121. -- high flags: A000
  122. -- rect: left=118 top=0 right=45 bottom=178
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 1262 / 1262
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: Bus. Class
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   play transport
  134.   visual effect dissolve slow
  135.   go to stack "Business Class"
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 10 (button)
  141. -- low flags: 00
  142. -- high flags: A000
  143. -- rect: left=177 top=0 right=45 bottom=237
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 6031 / 6031
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: TalkStack
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   play transport
  155.   visual effect dissolve slow
  156.   go to stack "HyperMacintalk"
  157.  
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 11 (button)
  163. -- low flags: 00
  164. -- high flags: A000
  165. -- rect: left=236 top=0 right=45 bottom=296
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 5516 / 5516
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: New Test. I
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   play transport
  177.   visual effect dissolve slow
  178.   go to stack "New Testament pt. 1"
  179.  
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 12 (button)
  185. -- low flags: 00
  186. -- high flags: A000
  187. -- rect: left=295 top=0 right=45 bottom=355
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 5516 / 5516
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: New Test. ][
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   play transport
  199.   visual effect dissolve slow
  200.   go to stack "New Testament pt. 2"
  201.  
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 14 (button)
  207. -- low flags: 00
  208. -- high flags: A000
  209. -- rect: left=0 top=44 right=89 bottom=60
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 5249 / 5249
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Sound Conv.
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   play transport
  221.   visual effect dissolve slow
  222.   go to stack "Sound Convert"
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 15 (button)
  228. -- low flags: 00
  229. -- high flags: A000
  230. -- rect: left=59 top=44 right=89 bottom=119
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 29845 / 29845
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Scanned Art
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   play transport
  242.   visual effect dissolve slow
  243.   go to stack "Scanned Images"
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part 16 (button)
  249. -- low flags: 00
  250. -- high flags: A000
  251. -- rect: left=413 top=0 right=45 bottom=473
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 26884 / 26884
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Art Ideas
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   play transport
  263.   visual effect dissolve slow
  264.   go to stack "Art Ideas"
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 18 (button)
  270. -- low flags: 00
  271. -- high flags: 0000
  272. -- rect: left=152 top=96 right=263 bottom=368
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: it HURTS!
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   flash 2, slow
  284.   play hurts
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part 19 (button)
  290. -- low flags: 00
  291. -- high flags: A000
  292. -- rect: left=413 top=44 right=88 bottom=473
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 27056 / 27056
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: Button Ideas
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   play transport
  304.   visual effect dissolve slow
  305.   go to stack "Button Ideas"
  306. end mouseUp
  307.  
  308.  
  309.  
  310. -- part 20 (button)
  311. -- low flags: 00
  312. -- high flags: 0000
  313. -- rect: left=472 top=245 right=280 bottom=512
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 14135 / 14135
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: Yearly
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.   get the seconds
  325.   convert it to dateItems
  326.   put ((item 1 of it) - 1987) *2 into whichSix
  327.   if item 2 of it > 6 then add 1 to whichSix
  328.   visual effect zoom open
  329.   if whichSix < 1 then go card 1 of stack "DateBook"
  330.   else if whichSix > 5 then go card 5 of stack "DateBook"
  331.   else
  332.     go to card whichSix of stack "DateBook"
  333.     send "bracketWeek" && the seconds to this card
  334.   end if
  335. end mouseUp
  336.  
  337.  
  338.  
  339. -- part 23 (button)
  340. -- low flags: 00
  341. -- high flags: A000
  342. -- rect: left=354 top=0 right=45 bottom=414
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 30605 / 30605
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: Grades
  351. ----- HyperTalk script -----
  352. on mouseUp
  353.   play transport
  354.   visual effect dissolve slow
  355.   go to stack "Music 106"
  356. end mouseUp
  357.  
  358.  
  359.  
  360. -- part contents for background part 14
  361. ----- text -----
  362. 9:25 PM
  363.  
  364. -- part contents for background part 15
  365. ----- text -----
  366. 1/14/88